<!--#include file="../Inc/conn.asp"-->
<!--#include file="../Inc/Function_Page.asp"-->
<%
Dim keyword,sex,t
keyword=CheckStr(trim(request("KeyWord")))
If sex<>"" then
sex=LaoYRequest(request("sex"))
End if
t=LaoYRequest(request("t"))
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<link href="<%=SitePath%>images/css<%=Css%>.css" type=text/css rel=stylesheet>

<style>
.userlisttitle {text-align:center;font-weight:bold;padding:5px 0;font-size:14px;border-bottom:1px solid #ccc;}
.userlist {text-align:center;padding:3px 0;border:0;}
</style>
<script type="text/javascript" src="<%=SitePath%>js/main.asp"></script>
<title>用户列表-<%=SiteTitle%></title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%><div class="mw">
	<div class="dh">
		<%=search%>您现在的位置：<a href="<%=SitePath%>Index.asp">首页</a> >> 会员列表
    </div>
	<div id="nw_left">
		<div id="web2l">
		  <div style="text-align:center;margin:5px;">
<form id="form1" name="form1" method="get" action="">
会员搜索：<input name="KeyWord" type="text" class="borderall" id="KeyWord" value="<%=Keyword%>" maxlength="10"/>
<select name="sex" id="sex">
  <option value="">性别不限</option>
  <option value="1">帅哥</option>
  <option value="0">美女</option>
</select>
<input type="submit" name="Submit" value="搜 索" class="borderall"/>
</form>
</div>
			<div id="content">
				<ul id="listul">
				  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td class="userlisttitle" width="25%">用户名</td>
                      <td class="userlisttitle" width="10%">性别</td>
                      <td class="userlisttitle" width="10%">年龄</td>
                      <td class="userlisttitle" width="20%">籍贯</td>
                      <td class="userlisttitle" width="10%"><%=moneyname%></td>
                      <td class="userlisttitle" width="35%">注册时间</td>
                    </tr>
				  <%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql=server.createobject("adodb.recordset")
If keyword<>"" then
mysql="select * From ["&tbname&"_User] Where yn = 1 and (UserName = '"&keyword&"' or TrueName like '%"&keyword&"%' or province like '%"&keyword&"%' or city like '%"&keyword&"%')"
else
mysql="select * From ["&tbname&"_User] Where yn = 1"
end if
If sex<>"" then
mysql = mysql & " and sex = "&sex&""
End if
if t=0 then
mysql = mysql & " order by id desc"
elseif t=1 then
mysql = mysql & " order by UserMoney desc"
end if

mypage.getsql = mysql
mypage.pagesize=30
set rs=mypage.getrs()
for i=1 to mypage.pagesize
    if not rs.eof then 
%>
                    <tr>
                      <td class="userlist"><a href="ShowUser.asp?ID=<%=rs("ID")%>" target="_blank"><%=rs("UserName")%></a></td>
                      <td class="userlist"><%If rs("Sex")=1 then Response.Write("男") else Response.Write("<font color=red>女</font>") end if%></td>
                      <td class="userlist"><%=datediff("yyyy",rs("birthday"),Now())%></td>
                      <td class="userlist"><%=rs("province")%><%=rs("city")%></td>
                      <td class="userlist"><%=rs("UserMoney")%></td>
                      <td class="userlist"><%=rs("RegTime")%></td>
                    </tr>
<%
        rs.movenext
    else
         exit for
    end if
next
%>
                  </table>
				</ul>
		  </div>
<div id="clear"></div>
<div id="page">
	<ul>
    <%=mypage.showpage()%>
    </ul>
</div>
	  </div>
	</div>
	<div id="nw_right">
		<%Echo ShowAD(3)%>
		<div id="web2r">
			<h5>最新文章</h5>
			<ul id="list10">
            	<%Call ShowArticle(0,10,5,"·",100,"no","DateAndTime desc,ID desc",0,1,0)%>
            </ul>
  		</div>
	</div>
</div>
<%=Copy%></div>
</body>
</html>